﻿Public Class perCusto
    Inherits AcessoBd
    Public Function selecionarCustoPorMarca(ByVal sMarca As String) As DataTable
        Dim dtRetorno As DataTable
        Dim sSql As String

        Try
            sSql = "SELECT DISTINCT(produto.descMarca), valorCusto " &
                   "  FROM custo INNER JOIN produto ON custo.codProduto = produto.codProduto " &
                   " WHERE produto.descMarca = @Marca"

            With MyBase.SQLCmd.Parameters
                .Clear()
                .AddWithValue("@Marca", sMarca.Trim)
            End With

            dtRetorno = MyBase.executarConsulta(sSql)

            Return dtRetorno

        Catch ex As Exception

            Throw New Exception("Ocorreu um erro ao selecionar o custo da marca. " & _
                                    Environment.NewLine & ex.Message)

        End Try

    End Function

    Public Function selecionarCustoPorProduto(ByVal sCodProduto As String) As Double
        Dim dtConsulta As DataTable
        Dim sSql As String
        Dim dRetorno As Double = 0

        Try
            sSql = "SELECT valorCusto " &
                   "  FROM custo " &
                   " WHERE codProduto = @CodProduto"

            With MyBase.SQLCmd.Parameters
                .Clear()
                .AddWithValue("@CodProduto", sCodProduto)
            End With

            dtConsulta = MyBase.executarConsulta(sSql)

            If dtConsulta.Rows.Count > 0 Then
                dRetorno = Conversao.nuloParaZero(dtConsulta.Rows(0).Item("valorCusto"))
            End If

            Return dRetorno

        Catch ex As Exception

            Throw New Exception("Ocorreu um erro ao selecionar o custo do produto. " & _
                                    Environment.NewLine & ex.Message)

        End Try

    End Function

End Class
